home *** CD-ROM | disk | FTP | other *** search
/ C/C++ Users Group Library 1996 July / C-C++ Users Group Library July 1996.iso / vol_200 / 231_01 / fib.st < prev    next >
Encoding:
Text File  |  1987-06-15  |  384 b   |  13 lines
  1. Class Fib :Generator
  2. | lastNumber  nextToLastNumber |
  3. [
  4.     first
  5.             nextToLastNumber <- 0.
  6.             ^ lastNumber <- 1
  7. |
  8.       next            | sum |
  9.             sum <- nextToLastNumber + lastNumber.
  10.             nextToLastNumber <- lastNumber.
  11.             ^ lastNumber <- sum
  12. ]
  13.